summaryrefslogblamecommitdiffstats
path: root/BIC.FOR
blob: 5d0d2029ef96cb3f797bae6288fe53fa2c887385 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12











                                   
	SUBROUTINE BIC(CH,IV,IP)
	CHARACTER CH(10)*40
	IPP=IP
	DO 10 I=1,40
	IF(CH(IV)(I:I).EQ.'*') THEN
	CH(IV)(I:I)=' '
	IPP=IPP-1
	IF(IPP.EQ.0) RETURN
	ENDIF
10	CONTINUE
	RETURN
	END